Red Eye Press Kit/Red Eye Press Kit.iso/pc/main.dxr/SCRIPTS_83_scrollImage.ls

Text File | 2005-07-18 | 678 b | 28 lines

property scrollHeight, scrollStart, scrollImage

on beginSprite me
  scrollHeight = sprite(me.spriteNum).member.height
  scrollStart = sprite(me.spriteNum).locV
  scrollImage = VOID
end

on exitFrame me
  if scrollImage <> VOID then
    scrollNext = sprite(me.spriteNum).locV + scrollImage
    if scrollImage > 0 then
      if scrollNext <= scrollStart then
        sprite(me.spriteNum).locV = scrollNext
      end if
    end if
    if scrollImage < 0 then
      if (sprite(me.spriteNum).bottom + scrollImage) >= (the stageBottom / 2) then
        sprite(me.spriteNum).locV = scrollNext
      end if
    end if
  end if
end

on scrollImage me, upDown
  scrollImage = upDown
end